msgbox"我有一件事想跟你说"
msgbox"自从第一天遇见你，我便对你难以忘怀了！"
msgbox"我喜欢上你了"
msgbox"希望你能接受我的爱意"
dim i
do while i < 1
Select Case msgbox("2021我们一起过",68,"")
Case 6 i = 1
Case 7 
msgbox"你再考虑下呗！"
end Select
loop
msgbox"我爱你！"